home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #8 / 1999 CD 8 (black).iso / maskdemo / DATA1.CAB / Program_Executable_Files / Daventry / KQ / wiztrap.cs < prev    next >
Encoding:
Text File  |  1998-12-15  |  717 b   |  28 lines
  1. if test $2 == On
  2.     if test $Daventry::Wizard::Clicked == false
  3.         checkDistance Wizard Connor 5000 
  4.         if test $Console::Return == 0
  5.             KQMonster::speak Wizard Wizard 1000 4 0 119 1 1
  6.         endif
  7.         sendEvent 6 $1 KQCueEvent 1 0    
  8.         set Daventry::Wizard::Trap On
  9.     else
  10.         KQObject::collision $1 -4
  11.         set Daventry::Wizard::Trap Off
  12.     endif
  13. else if test $2 == Off    
  14.     set Daventry::Wizard::Trap Off
  15. else if test $2 == Cue
  16.     if test $Daventry::Wizard::Clicked == false
  17.         if test $Daventry::Wizard::Trap == On
  18.             checkDistance Wizard Connor 5000 
  19.             if test $Console::Return == 0
  20.                 KQMonster::speak Wizard Wizard 1000 4 0 119 1 1
  21.             endif
  22.             sendEvent 8 $1 KQCueEvent 1 0    
  23.         endif
  24.     endif
  25. endif
  26. endif
  27. endif
  28.